'(THIS IS THE UNFASL FOR ((DSK (CLS LSP)) GPR4 LSP)) 
'(ASSEMBLED BY FASLAP /392) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117) 

;COMPILED ON JANUARY 30, 1987, AT 9:29 PM

;Loading DEFSTRUCT 280
'NODE-RECORD 
	(COMMENT **FASL** 0. (LAP |BLOCK MACRO| SUBR)) 
	(COMMENT **FASL** 37. (LAP |RETURN-FROM MACRO| SUBR)) 
	(COMMENT **FASL** 72. (LAP |UNLESS MACRO| SUBR)) 
	(COMMENT **FASL** 105. (LAP |WHEN MACRO| SUBR)) 
	(COMMENT **FASL** 134. (LAP |INCF MACRO| SUBR)) 
	(COMMENT **FASL** 166. (LAP |DECF MACRO| SUBR)) 
	(COMMENT **FASL** 198. (LAP |NODE-RECORD MACRO| SUBR)) 
(COMMENT ****  (LOOP FROM USER FILE #FILE-IN-|DSK:GPR4.LSP[CLS,LSP]|-71770) 
		being redefined as a MACRO -- definition is pushed onto MACROLIST in function |NODE-RECORD MACRO|)
	(COMMENT **FASL** 223. (LAP |LOOP MACRO| SUBR)) 
	(COMMENT **FASL** 241. (LAP |DOLIST MACRO| SUBR)) 
	(COMMENT **FASL** 312. (LAP UNION SUBR)) 
	(COMMENT **FASL** 335. (LAP |NODE-RECORD-EXISTS MACRO| SUBR)) 
	(COMMENT **FASL** 361. (LAP |FIND-NODE-RECORD MACRO| SUBR)) 
	(COMMENT **FASL** 390. (LAP INIT SUBR)) 
	(COMMENT **FASL** 394. (LAP |DEFCLASS MACRO| SUBR)) 
	(COMMENT **FASL** 590. (LAP RECORD-RELATION SUBR)) 
	(COMMENT **FASL** 613. (LAP FIND-LOOP SUBR)) 
	(COMMENT **FASL** 641. (LAP |[CLS,LSP]GPR4.LSP←1| LSUBR)) 
	(COMMENT **FASL** 644. (LAP TOPOLOGICALLY-SORT SUBR)) 
	(COMMENT **FASL** TOTAL =  857. WORDS)